home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / eiffel / smalleif.97 / se.t / SmallEiffel / lib_test / point.e < prev    next >
Encoding:
Text File  |  1996-05-02  |  299 b   |  25 lines
  1. class POINT
  2.    
  3. creation {ANY}
  4.    make
  5.    
  6. feature {ANY}
  7.    
  8.    x, y : REAL;
  9.  
  10.    make (cx : REAL; cy : REAL) is
  11.       do
  12.      x := cx; 
  13.      y := cy;
  14.       end; -- make
  15.    
  16. feature {ANY}
  17.    
  18.    translater(dx, dy : REAL) is
  19.       do
  20.      x := x + dx;
  21.      y := y + dy;
  22.       end;  -- translater
  23.    
  24. end -- POINT
  25.